home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / systempatch / macwb 0.1 / src / main.c next >
C/C++ Source or Header  |  1996-07-17  |  29KB  |  1,082 lines
  1. /*
  2.      MacWB - a hack providing several well known window controls to the WB
  3.     -----------------------------------------------------------------------
  4.     
  5.     Well, what to say ? I'd like to say THIS:
  6.  
  7.  
  8.                                APFELSINEN »MONTE ROSA«
  9.     
  10.     (Für 2 Personen: 2 große Apfelsinen, 1 Paprikaschote, 1/8l Schlagsahne,
  11.     Zucker, Ingwer, Zitronensaft, Paprika)
  12.  
  13.     Apfelsinen vorsichtig aushöhlen, Schalenrand zackenförmig beschneiden.
  14.     Apfelsinenfleisch in Stückchen schneiden und abwechselnd mit Würfelchen
  15.     der von Kernen und Scheidewänden befreiten Paprikaschote in die Schalen
  16.     füllen. Sahne mit wenig Zucker steif schlagen, mit gemahlenem Ingwer und
  17.     Zitronensaft pikant abschmecken, die Apfelsinen damit garnieren, den Rest
  18.     gesondert reichen. Sahne mit etwas Paprikapulver bepudern.
  19.     
  20.                                                    Ich wünsche Guten Appetit!
  21.     -------------------------------------------------------------------------
  22.  
  23. */
  24.  
  25. //#define DEBUG                       ON
  26. //#define CLOSEWINDOW_SAFELY_NEEDED   YES
  27. //#define CREATE_BACKFILL_HOOK        YES
  28.  
  29. #include <db/defs.h> // == include all + some macros, (ifn,... D(bug()), ...)
  30.  
  31. /* OpenWindowTagList */
  32. #define VEC1 -0x25e
  33. #define LIB1 (struct Library*) IntuitionBase
  34.  
  35. /* CloseWindow */
  36. #define VEC2 -0x48
  37. #define LIB2 (struct Library*) IntuitionBase
  38.  
  39. extern APTR NewVector1;
  40. extern APTR OldVector1;
  41. extern APTR NewVector2;
  42. extern APTR OldVector2;
  43.  
  44. // magic numbers...
  45.  
  46. #define MAGIC_NUMBER 30121971
  47. #define WUD_POINTER 0x80301271
  48. #define GRAY(xx) (xx<<26)|0xFFFFFF,(xx<<26)|0xFFFFFF,(xx<<26)|0xFFFFFF
  49.  
  50. static char *version = "$VER: MacWB 0.1 (17.07.96) ©1996 Daniel Balster";
  51.  
  52. // the BOOPSI classes used in this example; application global.. (not system)
  53.  
  54. Class *cl_macdraggad;
  55. Class *cl_macbordergad;
  56. Class *cl_macborderimg;
  57. Class *cl_maczoomimg;
  58. Class *cl_maccloseimg;
  59. Class *cl_macdragimg;
  60. Class *cl_macsizeimg;
  61.  
  62. // the BOOPSI image packet
  63.  
  64. struct WindowUserData
  65. {
  66.     struct TagItem Tags [4];
  67.     
  68.     ULONG  MagicID;
  69.  
  70.     Object    *Size,    *SizeImg;
  71.     Object    *Dragbar,    *DragImg;
  72.     Object    *Close,    *CloseImg;
  73.     Object    *Zoom,    *ZoomImg;
  74.     Object    *Border,    *BorderImg;
  75.  
  76.     struct Screen *scr;
  77.     struct TextFont *tf;
  78.  
  79. #ifdef CREATE_BACKFILL_HOOK
  80.     struct Hook MacLayerHook;
  81. #endif
  82.     STRPTR *title;
  83.  
  84.     // color pen allocations
  85.  
  86.     BYTE gray00,gray13,gray23,gray29;
  87.     BYTE gray42,gray46,gray55,gray59;
  88.     BYTE gray63,p1,p2,p3;
  89. };
  90.  
  91. struct Image_Data
  92. {
  93.     struct WindowUserData *WUD;
  94. };
  95.  
  96. //////////////////////////////////////////////////////////
  97. //FS GEFALTETES ZEUG HIER !!! ////////////////////////////
  98. /*
  99.     SAVEDS        -> local data a4 register (interrupt/hooks need this)
  100.     ASM            -> tell the compiler to create the register calls;
  101.     REG(x) var    -> put the next variable into register x
  102. */
  103. SAVEDS ASM ULONG DispatchMacDragGad (REG(a0) Class *cl, REG(a2) Object *obj, REG(a1) struct gpRender *msg)
  104. {
  105.     switch (msg->MethodID)
  106.     {
  107.         case GM_LAYOUT            :    /* we only overload LAYOUT and RENDER */
  108.         case GM_RENDER            : 
  109.             if (msg->gpr_GInfo->gi_Window)
  110.             {
  111.                 ULONG width    = (ULONG) msg->gpr_GInfo->gi_Window->Width;
  112.  
  113.                 /* layout ourself (GA_RelWidth!) */
  114.  
  115.                 SetAttrs(obj,
  116.                     GA_Width        , width-2,
  117.                     GA_Height        , 17,
  118.                     TAG_DONE);
  119.                     
  120.                 /* and inherit the values to our image object */
  121.                 
  122.                 SetAttrs(((struct Gadget*)obj)->GadgetRender,
  123.                     IA_Width        , width-2,
  124.                     IA_Height        , 17,
  125.                     IA_Left        , 0,
  126.                     IA_Top        , 0,
  127.                     TAG_DONE);
  128.             }
  129.     }
  130.     
  131.     /* pass *EVERY* method to our superclass ! */
  132.     
  133.     return DoSuperMethodA(cl,obj,msg);
  134. }
  135.  
  136. /*
  137.     the bordergadget is not a real gadget; this will change in
  138.     the next version (all HITTESTS are ignored so far...)
  139. */
  140.  
  141. SAVEDS ASM ULONG DispatchMacBorderGad (REG(a0) Class *cl, REG(a2) Object *obj, REG(a1) struct gpRender *msg)
  142. {
  143.     switch (msg->MethodID)
  144.     {
  145.         case GM_LAYOUT            : 
  146.         case GM_RENDER            : 
  147.             if (msg->gpr_GInfo->gi_Window)
  148.             {
  149.                 ULONG height    = (ULONG) msg->gpr_GInfo->gi_Window->Height;
  150.                 ULONG width    = (ULONG) msg->gpr_GInfo->gi_Window->Width;
  151.     
  152.                 SetAttrs(obj,
  153.                     GA_Width        , width,
  154.                     GA_Height        , height,
  155.                     TAG_DONE);
  156.                 SetAttrs(((struct Gadget*)obj)->GadgetRender,
  157.                     IA_Width        , width,
  158.                     IA_Height        , height,
  159.                     TAG_DONE);
  160.             }
  161.     }
  162.     return DoSuperMethodA(cl,obj,msg);
  163. }
  164.  
  165. /*
  166.     now the image classes.
  167.     
  168.     only NEW and DRAW are overloaded, and all imagery is drawn using
  169.     Move(), Draw() and Rectfill().
  170.     In the next version I'll try to use more efficient and faster rendering
  171.     (polygone structs?) or fixed size images (but they are not scalable).
  172.     
  173.     The new method is just setting the WUD (WindowUserData) for the image.
  174.     Another method would be to put the WUD pointer into the IA_Data attribute.
  175.     (we don't need the ImageData pointer)
  176. */
  177.  
  178. SAVEDS ASM ULONG DispatchMacBorderImg (REG(a0) Class *cl, REG(a2) struct Image *img, REG(a1) struct impDraw* msg)
  179. {
  180.     switch (msg->MethodID)
  181.     {
  182.         case IM_HITTEST        :
  183.             return FALSE;
  184.         case IM_ERASE:
  185.         case IM_DRAW:
  186.         {
  187.             struct RastPort *RP    = msg->imp_RPort;
  188.             struct Image_Data *data = INST_DATA(cl,img);
  189.             UWORD left,top,width,height,X,Y,i,light;
  190.  
  191.             X        = msg->imp_Offset.X;
  192.             Y        = msg->imp_Offset.Y;
  193.             left        = img->LeftEdge + X;
  194.             top        = img->TopEdge + Y;
  195.             width    = img->Width;
  196.             height    = img->Height;
  197.  
  198.             switch (msg->imp_State)
  199.             {
  200.                 case IDS_INACTIVENORMAL:
  201.                     light = data->WUD->gray29;
  202.                     break;
  203.                 case IDS_NORMAL:
  204.                     light = data->WUD->gray00;
  205.                     break;
  206.             }
  207.  
  208.             SetAPen(RP,data->WUD->gray00);
  209.  
  210.             Move (RP,left+width-1,top);
  211.             Draw (RP,left+width-1,top+height-1);
  212.             Draw (RP,left,top+height-1);
  213.             
  214.             SetAPen(RP,light);
  215.             Draw (RP,left,top);
  216.             Draw (RP,left+width-1,top);
  217.  
  218.             Move (RP,left+width-2,top);
  219.             Draw (RP,left+width-2,top+height-2);
  220.             Draw (RP,left,top+height-2);
  221.  
  222.             // draw this only together with the sizer
  223.             if (data->WUD->Size)
  224.             {
  225.                 Move (RP,left+width-2-15,top+19);
  226.                 Draw (RP,left+width-2-15,top+height-16);
  227.                 Draw (RP,left+1,top+height-16);
  228.             }
  229.  
  230.             Move (RP,left+1,top+18);
  231.             Draw (RP,left+width-2,top+18);
  232.  
  233.             return (1);
  234.         }
  235.         break;
  236.  
  237.         case OM_NEW:
  238.         {
  239.             if (img = DoSuperMethodA(cl,img,msg))
  240.             {
  241.                 struct Image_Data *data = INST_DATA(cl,img);
  242.             
  243.                 data->WUD = GetTagData(WUD_POINTER,0,((struct opSet*)msg)->ops_AttrList);
  244.             
  245.                 return (ULONG)(img);
  246.             }
  247.             CoerceMethod(cl,img,OM_DISPOSE);
  248.             return NULL;
  249.         }
  250.         break;
  251.     }
  252.     DoSuperMethodA(cl,img,msg);
  253. }
  254.  
  255. SAVEDS ASM ULONG DispatchMacDragImg (REG(a0) Class *cl, REG(a2) struct Image *img, REG(a1) struct impDraw* msg)
  256. {
  257.     switch (msg->MethodID)
  258.     {
  259.         case IM_DRAW:
  260.         {
  261.             struct RastPort *RP = msg->imp_RPort;
  262.             struct Image_Data *data = INST_DATA(cl,img);
  263.             UWORD left,top,width,height,X,Y,i,p1,p2;
  264.  
  265.             X        = msg->imp_Offset.X;
  266.             Y        = msg->imp_Offset.Y;
  267.             left        = img->LeftEdge + X;
  268.             top        = img->TopEdge + Y;
  269.             width    = img->Width - 1;
  270.             height    = img->Height;
  271.  
  272.             switch (msg->imp_State)
  273.             {
  274.                 case IDS_INACTIVENORMAL:
  275.                     SetAPen(RP,data->WUD->gray59); // 63 !!
  276.                     RectFill(RP,left,top,left+width-1,top+height-1);
  277.                     p1 = data->WUD->gray29; // 34 !!
  278.                     p2 = data->WUD->gray59; // 63 !!
  279.  
  280.                     // the next drawing is only to fix a bug ??
  281.  
  282.                     SetAPen(RP,data->WUD->gray29);
  283.                     Move (RP,left+width,top);
  284.                     Draw (RP,left+width,top+height-1);
  285.                     break;
  286.                 case IDS_NORMAL:
  287.                     SetAPen(RP,data->WUD->gray55);
  288.                     Move (RP,left,top+height-2);
  289.                     Draw (RP,left,top);
  290.                     Draw (RP,left+width-2,top);
  291.  
  292.                     SetAPen(RP,data->WUD->gray46);
  293.                     Move (RP,left+width-1,top);                
  294.                     Draw (RP,left+width-1,top+height-1);
  295.                     Draw (RP,left,top+height-1);
  296.  
  297.                     SetAPen(RP,data->WUD->gray59);
  298.                     RectFill(RP,left+1,top+1,left+width-2,top+height-2);
  299.  
  300.                     SetAPen(RP,data->WUD->gray29);
  301.                     for (i=top+3;i<=top+13;i+=2)
  302.                     {
  303.                         Move (RP,left+1,i);
  304.                     Draw (RP,left+width-2,i);
  305.                     }
  306.                     p1 = data->WUD->gray00;
  307.                     p2 = data->WUD->gray59;
  308.  
  309.                     // the next drawing is only to fix a bug ??
  310.  
  311.                     SetAPen(RP,data->WUD->gray00);
  312.                     Move (RP,left+width,top);
  313.                     Draw (RP,left+width,top+height-1);
  314.                     break;
  315.             }
  316.  
  317.     /*
  318.         draw the centered title:
  319.         
  320.         - check how many chars are fitting into the title area (==chars)
  321.         - draw 'chars'-number of chars into the title
  322.     */
  323.  
  324.             {
  325.                 struct TextExtent te;
  326.                 char *text = *(data->WUD->title);
  327.                 int len = strlen(text);
  328.                 int chars, pixel;
  329.                 
  330.                 SetABPenDrMd(RP,p1,p2,JAM2);
  331.                 SetFont (RP,data->WUD->tf);
  332.                 SetSoftStyle(RP,FS_NORMAL,FS_NORMAL);
  333.  
  334.                 // absolute! *change*!....
  335.                 // 42 == 10+11 ... 11+10   (close and zoom gadget)
  336.  
  337.                 chars = TextFit(RP,text,len,&te,0,1,width-42,1000);
  338.                 pixel = TextLength(RP,text,chars);
  339.  
  340.                 Move (RP,left+((width>>1)-(pixel>>1)),top+4+RP->TxBaseline-1);
  341.                 Text (RP,text,chars);
  342.             }
  343.  
  344.             return (1);
  345.         }
  346.     
  347.         case OM_NEW:
  348.         {
  349.             if (img = DoSuperMethodA(cl,img,msg))
  350.             {
  351.                 struct Image_Data *data = INST_DATA(cl,img);
  352.             
  353.                 data->WUD = GetTagData(WUD_POINTER,0,((struct opSet*)msg)->ops_AttrList);
  354.             
  355.                 return (ULONG)(img);
  356.             }
  357.             CoerceMethod(cl,img,OM_DISPOSE);
  358.             return NULL;
  359.         }
  360.  
  361.     }
  362.  
  363.     DoSuperMethodA(cl,img,msg);
  364. }
  365.  
  366. SAVEDS ASM ULONG DispatchMacSizeImg (REG(a0) Class *cl, REG(a2) struct Image *img, REG(a1) struct impDraw* msg)
  367. {
  368.     if (msg->MethodID == IM_DRAW)
  369.     {
  370.         struct RastPort *RP    = msg->imp_RPort;
  371.         struct Image_Data *data = INST_DATA(cl,img);
  372.         UWORD left,top,width,height,X,Y,i;
  373.  
  374.         X        = msg->imp_Offset.X;
  375.         Y        = msg->imp_Offset.Y;
  376.         left        = img->LeftEdge + X;
  377.         top        = img->TopEdge + Y;
  378.         width    = img->Width;
  379.         height    = img->Height;
  380.  
  381.         switch (msg->imp_State)
  382.         {
  383.             case IDS_INACTIVENORMAL:
  384.                 SetAPen(RP,data->WUD->gray29);
  385.                 Move (RP,left,top+height-1);
  386.                 Draw (RP,left,top);
  387.                 Draw (RP,left+width-1,top);
  388.                 SetAPen(RP,data->WUD->gray59);
  389.                 RectFill (RP,left+1,top+1,left+width-1,top+height-1);
  390.                 break;
  391.             case IDS_NORMAL:
  392.             
  393.             /* POLYGONES OR INLINE IMAGES SHOULD BE USED HERE !!! */
  394.             
  395.                 SetAPen(RP,data->WUD->gray00);
  396.                 Move (RP,left,top+height-1);    Draw (RP,left,top);    Draw (RP,left+width-1,top);
  397.                 SetAPen(RP,data->WUD->gray55);
  398.                 RectFill (RP,left+1,top+1,left+width-1,top+height-1);
  399.                 SetAPen(RP,data->WUD->gray42);
  400.                 RectFill (RP,left+5,top+5,left+width-4,top+height-4);
  401.                 SetAPen(RP,data->WUD->gray13);
  402.                 Move (RP,left+3,top+8);    Draw (RP,left+3,top+3);    Draw (RP,left+8,top+3);
  403.                 Move (RP,left+5,top+8);    Draw (RP,left+8,top+8);    Draw (RP,left+8,top+5);
  404.                 Move (RP,left+4,top+9);    Draw (RP,left+4,top+width-3);
  405.                 Move (RP,left+9,top+4);    Draw (RP,left+width-3,top+4);
  406.                 Move (RP,left+6,top+height-3);    Draw (RP,left+width-3,top+height-3);    Draw (RP,left+width-3,top+6);
  407.                 SetAPen(RP,data->WUD->gray55);
  408.                 Move (RP,left+4,top+8);    Draw (RP,left+4,top+4);    Draw (RP,left+8,top+4);
  409.                 Move (RP,left+5,top+9);    Draw (RP,left+5,top+width-3);
  410.                 Move (RP,left+9,top+5);    Draw (RP,left+width-3,top+5);
  411.                 break;
  412.         }
  413.  
  414.         return (1);
  415.     }
  416.  
  417.     if (msg->MethodID==OM_NEW)
  418.     {
  419.         if (img = DoSuperMethodA(cl,img,msg))
  420.         {
  421.             struct Image_Data *data = INST_DATA(cl,img);
  422.         
  423.             data->WUD = GetTagData(WUD_POINTER,0,((struct opSet*)msg)->ops_AttrList);
  424.         
  425.             return (ULONG)(img);
  426.         }
  427.         CoerceMethod(cl,img,OM_DISPOSE);
  428.         return NULL;
  429.     }
  430.  
  431.     DoSuperMethodA(cl,img,msg);
  432. }
  433.  
  434. SAVEDS ASM ULONG DispatchMacZoomImg (REG(a0) Class *cl, REG(a2) struct Image *img, REG(a1) struct impDraw* msg)
  435. {
  436.     if (msg->MethodID == IM_DRAW)
  437.     {
  438.         struct RastPort *RP    = msg->imp_RPort;
  439.         struct Image_Data *data = INST_DATA(cl,img);
  440.         UWORD left,top,width,height,w2,h2,X,Y,i;
  441.  
  442.         X        = msg->imp_Offset.X;
  443.         Y        = msg->imp_Offset.Y;
  444.         left        = img->LeftEdge + X;
  445.         top        = img->TopEdge + Y;
  446.         width    = img->Width;
  447.         height    = img->Height;
  448.  
  449.         switch (msg->imp_State)
  450.         {
  451.             case IDS_INACTIVENORMAL:
  452.                 break;
  453.             case IDS_NORMAL:
  454.                 SetAPen(RP,data->WUD->gray59);
  455.                 Move (RP,left,top);    Draw (RP,left,top+width-3);
  456.                 Move (RP,left+width-1,top);    Draw (RP,left+width-1,top+width-3);
  457.                 SetAPen(RP,data->WUD->gray13);
  458.                 Move (RP,left+1,top+height-1);    Draw (RP,left+1,top);    Draw (RP,left+width-2,top);
  459.                 SetAPen(RP,data->WUD->gray55);
  460.                 Move (RP,left+2,top+1);Draw (RP,left+width-2,top+1);    Draw (RP,left+width-2,top+height-1);    Draw (RP,left+2,top+height-1);    Draw (RP,left+2,top+1);
  461.                 SetAPen(RP,data->WUD->gray42);
  462.                 RectFill (RP,left+3,top+2,left+width-4,top+height-3);
  463.                 w2 = (width-4) >> 1;
  464.                 h2 = (height-3) >> 1;
  465.                 SetAPen(RP,data->WUD->gray13);
  466.                 Move (RP,left+3,top+height-2);    Draw (RP,left+width-3,top+height-2);    Draw (RP,left+width-3,top+2);
  467.                 Move (RP,left+3,top+2+h2);    Draw (RP,left+3+w2,top+2+h2);    Draw (RP,left+3+w2,top+2);
  468.                 break;
  469.             case IDS_SELECTED:
  470.                 SetAPen(RP,data->WUD->gray59);
  471.                 Move (RP,left,top);    Draw (RP,left,top+width-3);
  472.                 Move (RP,left+width-1,top);    Draw (RP,left+width-1,top+width-3);
  473.                 SetAPen(RP,data->WUD->gray29);
  474.                 RectFill (RP,left+2,top+1,left+width-3,top+height-2);
  475.                 SetAPen(RP,data->WUD->gray00);
  476.                 Move (RP,left+1,top);
  477.                 Draw (RP,left+width-2,top);
  478.                 Draw (RP,left+width-2,top+height-1);
  479.                 Draw (RP,left+1,top+height-1);
  480.                 Draw (RP,left+1,top);
  481.                 X = width>>1; Y = height>>1;
  482.                 Move (RP,left+2,top+Y);
  483.                 Draw (RP,left+width-2,top+Y);
  484.                 Move (RP,left+X,top+1);
  485.                 Draw (RP,left+X,top+height-2);
  486.                 Move (RP,left+3,top+2);
  487.                 Draw (RP,left+width-4,top+height-3);
  488.                 Move (RP,left+3,top+height-3);
  489.                 Draw (RP,left+width-4,top+2);
  490.                 SetAPen(RP,data->WUD->gray29);
  491.                 RectFill (RP,left+X-1,top+Y-1,left+X+1,top+Y+1);
  492.         }
  493.  
  494.         return (1);
  495.     }
  496.  
  497.     if (msg->MethodID==OM_NEW)
  498.     {
  499.         if (img = DoSuperMethodA(cl,img,msg))
  500.         {
  501.             struct Image_Data *data = INST_DATA(cl,img);
  502.         
  503.             data->WUD = GetTagData(WUD_POINTER,0,((struct opSet*)msg)->ops_AttrList);
  504.         
  505.             return (ULONG)(img);
  506.         }
  507.         CoerceMethod(cl,img,OM_DISPOSE);
  508.         return NULL;
  509.     }
  510.  
  511.     DoSuperMethodA(cl,img,msg);
  512. }
  513.  
  514. SAVEDS ASM ULONG DispatchMacCloseImg (REG(a0) Class *cl, REG(a2) struct Image *img, REG(a1) struct impDraw* msg)
  515. {
  516.     if (msg->MethodID == IM_DRAW)
  517.     {
  518.         struct RastPort *RP    = msg->imp_RPort;
  519.         struct Image_Data *data = INST_DATA(cl,img);
  520.         UWORD left,top,width,height,X,Y,i;
  521.  
  522.         X        = msg->imp_Offset.X;
  523.         Y        = msg->imp_Offset.Y;
  524.         left        = img->LeftEdge + X;
  525.         top        = img->TopEdge + Y;
  526.         width    = img->Width;
  527.         height    = img->Height;
  528.  
  529.         switch (msg->imp_State)
  530.         {
  531.             case IDS_INACTIVENORMAL:
  532.                 break;
  533.             case IDS_NORMAL:
  534.                 SetAPen(RP,data->WUD->gray59);
  535.                 Move (RP,left,top);    Draw (RP,left,top+width-3);
  536.                 Move (RP,left+width-1,top);    Draw (RP,left+width-1,top+width-3);
  537.                 SetAPen(RP,data->WUD->gray13);
  538.                 Move (RP,left+1,top+height-1);    Draw (RP,left+1,top);    Draw (RP,left+width-2,top);
  539.                 SetAPen(RP,data->WUD->gray55);
  540.                 Move (RP,left+2,top+1);    Draw (RP,left+width-2,top+1);    Draw (RP,left+width-2,top+height-1);    Draw (RP,left+2,top+height-1);    Draw (RP,left+2,top+1);
  541.                 SetAPen(RP,data->WUD->gray13);
  542.                 Move (RP,left+3,top+height-2);    Draw (RP,left+width-3,top+height-2);    Draw (RP,left+width-3,top+2);
  543.                 SetAPen(RP,data->WUD->gray42);
  544.                 RectFill (RP,left+3,top+2,left+width-4,top+height-3);
  545.                 break;
  546.             case IDS_SELECTED:
  547.                 SetAPen(RP,data->WUD->gray59);
  548.                 Move (RP,left,top);    Draw (RP,left,top+width-3);
  549.                 Move (RP,left+width-1,top);    Draw (RP,left+width-1,top+width-3);
  550.                 SetAPen(RP,data->WUD->gray29);
  551.                 RectFill (RP,left+2,top+1,left+width-3,top+height-2);
  552.                 SetAPen(RP,data->WUD->gray00);
  553.                 Move (RP,left+1,top);
  554.                 Draw (RP,left+width-2,top);
  555.                 Draw (RP,left+width-2,top+height-1);
  556.                 Draw (RP,left+1,top+height-1);
  557.                 Draw (RP,left+1,top);
  558.                 /* draw the centered "star" */
  559.                 X = width>>1; Y = height>>1;
  560.                 Move (RP,left+2,top+Y);
  561.                 Draw (RP,left+width-2,top+Y);
  562.                 Move (RP,left+X,top+1);
  563.                 Draw (RP,left+X,top+height-2);
  564.                 Move (RP,left+3,top+2);
  565.                 Draw (RP,left+width-4,top+height-3);
  566.                 Move (RP,left+3,top+height-3);
  567.                 Draw (RP,left+width-4,top+2);
  568.                 SetAPen(RP,data->WUD->gray29);
  569.                 RectFill (RP,left+X-1,top+Y-1,left+X+1,top+Y+1);
  570.  
  571.                 break;
  572.         }
  573.  
  574.         return (1);
  575.     }
  576.  
  577.     if (msg->MethodID==OM_NEW)
  578.     {
  579.         if (img = DoSuperMethodA(cl,img,msg))
  580.         {
  581.             struct Image_Data *data = INST_DATA(cl,img);
  582.         
  583.             data->WUD = GetTagData(WUD_POINTER,0,((struct opSet*)msg)->ops_AttrList);
  584.         
  585.             return (ULONG)(img);
  586.         }
  587.         CoerceMethod(cl,img,OM_DISPOSE);
  588.         return NULL;
  589.     }
  590.  
  591.     DoSuperMethodA(cl,img,msg);
  592. }
  593.  
  594. /********************************************************/
  595. /*** init/kill the custom classes ***********************/
  596. /********************************************************/
  597.  
  598. int init (void)
  599. {
  600.     /* (layouted) gadgets ... */
  601.     if (cl_macdraggad    = MakeClass (NULL,"buttongclass",0,0,0))                    cl_macdraggad->cl_Dispatcher.h_Entry    = DispatchMacDragGad;
  602.     if (cl_macbordergad    = MakeClass (NULL,"buttongclass",0,0,0))                    cl_macbordergad->cl_Dispatcher.h_Entry    = DispatchMacBorderGad;
  603.  
  604.     /* images ... */
  605.     if (cl_macdragimg    = MakeClass (NULL,"imageclass",0,sizeof(struct Image_Data),0))    cl_macdragimg->cl_Dispatcher.h_Entry    = DispatchMacDragImg;
  606.     if (cl_macsizeimg    = MakeClass (NULL,"imageclass",0,sizeof(struct Image_Data),0))    cl_macsizeimg->cl_Dispatcher.h_Entry    = DispatchMacSizeImg;
  607.     if (cl_maczoomimg    = MakeClass (NULL,"imageclass",0,sizeof(struct Image_Data),0))    cl_maczoomimg->cl_Dispatcher.h_Entry    = DispatchMacZoomImg;
  608.     if (cl_maccloseimg    = MakeClass (NULL,"imageclass",0,sizeof(struct Image_Data),0))    cl_maccloseimg->cl_Dispatcher.h_Entry    = DispatchMacCloseImg;
  609.     if (cl_macborderimg    = MakeClass (NULL,"imageclass",0,sizeof(struct Image_Data),0))    cl_macborderimg->cl_Dispatcher.h_Entry    = DispatchMacBorderImg;
  610.  
  611.     return (int)
  612.         cl_macdraggad &&
  613.         cl_macbordergad &&
  614.         cl_macdragimg &&
  615.         cl_macsizeimg &&
  616.         cl_maczoomimg &&
  617.         cl_maccloseimg &&
  618.         cl_macborderimg;
  619. }
  620.  
  621. void kill (void)
  622. {
  623.     /* (layouted) gadgets ... */
  624.     FreeClass (cl_macdraggad);
  625.     FreeClass (cl_macbordergad);
  626.  
  627.     /* images ... */
  628.     FreeClass (cl_macdragimg);
  629.     FreeClass (cl_macsizeimg);
  630.     FreeClass (cl_maczoomimg);
  631.     FreeClass (cl_maccloseimg);
  632.     FreeClass (cl_macborderimg);
  633. }
  634.  
  635. /******************************************************/
  636.  
  637. #ifdef CREATE_BACKFILL_HOOK
  638.  
  639. // an easy "faked-bitmap" backfill hook (for the "gray" background)
  640.  
  641. struct bfMsg
  642. {
  643.     struct Layer *Layer;
  644.     struct Rectangle Bounds;
  645.     LONG OffsetX;
  646.     LONG OffsetY;
  647. };
  648.  
  649. #define RECTSIZEX(r) ((r)->MaxX-(r)->MinX+1)
  650. #define RECTSIZEY(r) ((r)->MaxY-(r)->MinY+1)
  651.  
  652. struct BitMap White = { 256, 256, 0,8, 0, { 0 } };
  653.  
  654. STATIC ULONG SAVEDS ASM MacLayerFunc (REG(a0) struct Hook *Hook,REG(a2) struct RastPort *RP,REG(a1) struct bfMsg *BFM)
  655. {
  656.     struct RastPort myRP = *RP;
  657.     myRP.Layer = NULL;
  658.  
  659.     BltBitMap(&White,BFM->Bounds.MinX,BFM->Bounds.MinY,RP->BitMap,BFM->Bounds.MinX,BFM->Bounds.MinY,RECTSIZEX(&BFM->Bounds),RECTSIZEY(&BFM->Bounds),0xC0,0xFF,NULL);
  660.  
  661.     return 0;
  662. }
  663.  
  664. #endif
  665.  
  666. /******************************************************/
  667.  
  668. // some typical mac fonts
  669.  
  670. struct TextAttr MacFont =
  671. {
  672.     "chicago.font",13,FPF_DISKFONT,FS_NORMAL
  673. };
  674. struct TextAttr MacFont2 =
  675. {
  676.     "monaco.font",9,FPF_DISKFONT,FS_NORMAL
  677. };
  678. //FE
  679. //////////////////////////////////////////////////////////
  680.  
  681. //// P·R·O·T·O·T·Y·P·E·S
  682.  
  683. SAVEDS struct TagItem ASM *Before_OpenWindow (REG(a0) struct NewWindow *nw, REG(a1) struct TagItem *ti)
  684. {
  685.     struct Process *pr = (struct Process*) FindTask(0);
  686.     STRPTR tname = pr->pr_Task.tc_Node.ln_Name;
  687.  
  688.     ifn (strcmp(tname,"Workbench")) goto found;
  689.     ifn (strcmp(tname,"ShapeShifter")) goto found;    /* this is a *must* :-) */
  690.  
  691.     return ti;
  692.  
  693. found:
  694.     {
  695.         struct WindowUserData *WUD;
  696.  
  697.         // warning! we shouldn't patch any workbench backdrop window
  698.         
  699.         if (nw) if (nw->Flags & WFLG_BORDERLESS) return ti;
  700.  
  701.         ifn (WUD = AllocMem(sizeof(*WUD),MEMF_CLEAR|MEMF_PUBLIC)) return ti;
  702.  
  703.         WUD->tf = OpenDiskFont(&MacFont);
  704.  
  705.         if (WUD->tf)
  706.         {
  707.             register int i;
  708.             struct TagItem *tags;
  709.  
  710.             if (WUD->scr = LockPubScreen ("Workbench"))
  711.             {
  712.                 struct ColorMap *cm = WUD->scr->ViewPort.ColorMap;
  713.  
  714.                 WUD->gray00 = ObtainBestPen (cm,GRAY(0) ,OBP_Precision,PRECISION_EXACT,TAG_END);
  715.                 WUD->gray13 = ObtainBestPen (cm,GRAY(13),OBP_Precision,PRECISION_EXACT,TAG_END);
  716.                 WUD->gray23 = ObtainBestPen (cm,GRAY(23),OBP_Precision,PRECISION_EXACT,TAG_END);
  717.                 WUD->gray29 = ObtainBestPen (cm,GRAY(29),OBP_Precision,PRECISION_EXACT,TAG_END);
  718.                 WUD->gray42 = ObtainBestPen (cm,GRAY(42),OBP_Precision,PRECISION_EXACT,TAG_END);
  719.                 WUD->gray46 = ObtainBestPen (cm,GRAY(46),OBP_Precision,PRECISION_EXACT,TAG_END);
  720.                 WUD->gray55 = ObtainBestPen (cm,GRAY(55),OBP_Precision,PRECISION_EXACT,TAG_END);
  721.                 WUD->gray59 = ObtainBestPen (cm,GRAY(59),OBP_Precision,PRECISION_EXACT,TAG_END);
  722.                 WUD->gray63 = ObtainBestPen (cm,GRAY(63),OBP_Precision,PRECISION_EXACT,TAG_END);
  723.                 UnlockPubScreen(0,WUD->scr);
  724.             }
  725.  
  726. #ifdef CREATE_BACKFILL_HOOK
  727.                 // Create a "white-fixed-color" bitmap
  728.                 for (i=0;i<8;i++) White.Planes[i] = (PLANEPTR) ((((ULONG)WUD->gray55) & (1L<<i)) == (1L<<i)) ? (-1) : (0);
  729.                 WUD->MacLayerHook.h_Entry = (VOID*) MacLayerFunc;
  730. #endif
  731.  
  732.                 WUD->BorderImg = NewObject(cl_macborderimg,0,
  733.                     WUD_POINTER    , WUD,
  734.                     GA_Top        , 0,
  735.                     GA_Left        , 0,
  736.                     TAG_DONE);
  737.                 ifn (WUD->BorderImg) goto OpenWindoid_failed;
  738.  
  739.                 WUD->CloseImg = NewObject(cl_maccloseimg,0,
  740.                     IA_Width        , 13,
  741.                     IA_Height        , 11,
  742.                     WUD_POINTER    , WUD,
  743.                     TAG_DONE);
  744.                 ifn (WUD->CloseImg) goto OpenWindoid_failed;
  745.  
  746.                 WUD->ZoomImg = NewObject(cl_maczoomimg,0,
  747.                     IA_Width        , 13,
  748.                     IA_Height        , 11,
  749.                     WUD_POINTER    , WUD,
  750.                     TAG_DONE);
  751.                 ifn (WUD->ZoomImg) goto OpenWindoid_failed;
  752.  
  753.                 if (nw) if (nw->Flags & WFLG_SIZEGADGET)
  754.                 {
  755.                 WUD->SizeImg = NewObject(cl_macsizeimg,0,
  756.                     IA_Width        , 15,
  757.                     IA_Height        , 15,
  758.                     WUD_POINTER    , WUD,
  759.                     TAG_DONE);
  760.                 ifn (WUD->SizeImg) goto OpenWindoid_failed;
  761.                 }
  762.  
  763.                 WUD->DragImg = NewObject(cl_macdragimg,0,
  764.                     IA_Height        , 17,
  765.                     IA_Width        , 0,
  766.                     WUD_POINTER    , WUD,
  767.                     TAG_DONE);
  768.                 ifn (WUD->DragImg) goto OpenWindoid_failed;
  769.  
  770.                 WUD->Border = NewObject(cl_macbordergad,0,
  771.                     GA_RelWidth    , TRUE,
  772.                     GA_RelHeight    , TRUE,
  773.                     GA_Top        , 0,
  774.                     GA_Left        , 0,
  775.                     GA_ID        , MAGIC_NUMBER,
  776.                     GA_Image        , WUD->BorderImg,
  777.                     GA_BottomBorder, TRUE,
  778.                     GA_RightBorder    , TRUE,
  779.                     TAG_DONE);
  780.                 ifn (WUD->Border) goto OpenWindoid_failed;
  781.  
  782.                 WUD->Dragbar = NewObject(cl_macdraggad,NULL,
  783.                     GA_Top        , 1,
  784.                     GA_Left        , 1,
  785.                     GA_RelWidth    , TRUE,
  786.                     GA_Width        , 0,
  787.                     GA_Height        , 17,
  788.                     GA_SysGType    , GTYP_WDRAGGING,
  789.                     GA_TopBorder    , TRUE,
  790.                     GA_Image        , WUD->DragImg,
  791.                     GA_ID        , MAGIC_NUMBER,
  792.                     TAG_DONE);
  793.                 ifn (WUD->Dragbar) goto OpenWindoid_failed;
  794.  
  795.                 WUD->Close = NewObject(NULL,"buttongclass",
  796.                     GA_Top        , 4,
  797.                     GA_Left        , 8,
  798.                     GA_Width        , 13,
  799.                     GA_Height        , 11,
  800.                     GA_RelVerify    , TRUE,
  801.                     GA_EndGadget    , TRUE,
  802.                     GA_SysGType    , GTYP_CLOSE,
  803.                     GA_TopBorder    , TRUE,
  804.                     GA_Image        , WUD->CloseImg,
  805.                     GA_ID        , MAGIC_NUMBER,
  806.                     TAG_DONE);
  807.                 ifn (WUD->Close) goto OpenWindoid_failed;
  808.  
  809.                 WUD->Zoom = NewObject(NULL,"buttongclass",
  810.                     GA_Top        , 4,
  811.                     GA_RelRight    , -(11+10),
  812.                     GA_Width        , 13,
  813.                     GA_Height        , 11,
  814.                     GA_RelVerify    , TRUE,
  815.                     GA_SysGType    , GTYP_WZOOM,
  816.                     GA_TopBorder    , TRUE,
  817.                     GA_Image        , WUD->ZoomImg,
  818.                     GA_ID        , MAGIC_NUMBER,
  819.                     TAG_DONE);
  820.                 ifn (WUD->Zoom) goto OpenWindoid_failed;
  821.  
  822.                 if (nw) if (nw->Flags & WFLG_SIZEGADGET)
  823.                 {
  824.                 WUD->Size = NewObject(NULL,"buttongclass",
  825.                     GA_RelBottom    , -16,
  826.                     GA_RelRight    , -16,
  827.                     GA_Width        , 15,
  828.                     GA_Height        , 15,
  829.                     GA_RelVerify    , TRUE,
  830.                     GA_SysGType    , GTYP_SIZING,
  831.                     GA_Image        , WUD->SizeImg,
  832.                     GA_ID        , MAGIC_NUMBER,
  833.                     TAG_DONE);
  834.                 ifn (WUD->Size) goto OpenWindoid_failed;
  835.                 }
  836.  
  837.                 for (tags=ti;tags->ti_Tag;tags++)
  838.                 {
  839.                     switch (tags->ti_Tag)
  840.                     {
  841.                         case WA_DragBar:
  842.                         case WA_DepthGadget:
  843.                         case WA_CloseGadget:
  844.                         case WA_Zoom:
  845.                         case WA_SizeGadget:
  846.                             tags->ti_Tag  = TAG_IGNORE;
  847.                             tags->ti_Data = FALSE;
  848.                             break;
  849.                         case WA_Gadgets:
  850.                             {
  851.                                 struct Gadget *gg;
  852.                                 if (gg = tags->ti_Data)
  853.                                 {
  854.                                     while (gg->NextGadget)
  855.                                     {
  856.                                         if (gg->GadgetType == GTYP_PROPGADGET)
  857.                                         {
  858.                                             if (gg->Activation & GACT_RIGHTBORDER)
  859.                                             {
  860.                                                 gg->Height  -= 22;
  861.                                                 gg->TopEdge = 22;
  862.                                             }
  863.                                         }
  864.                                         gg = gg->NextGadget;
  865.                                     }
  866.                                 }
  867.                             }
  868.                             break;
  869.                         case WA_Flags:
  870.                             tags->ti_Data &=~ (WFLG_CLOSEGADGET|WFLG_DEPTHGADGET|WFLG_DRAGBAR|WFLG_SIZEGADGET);
  871.                             tags->ti_Data |=  (WFLG_BORDERLESS);
  872.                             break;
  873.                     }
  874.                 }
  875.  
  876.                 WUD->MagicID = MAGIC_NUMBER;
  877.  
  878.                 WUD->Tags[0].ti_Tag        = WA_Borderless;
  879.                 WUD->Tags[0].ti_Data    = TRUE;
  880. #ifdef CREATE_BACKFILL_HOOK
  881.                 WUD->Tags[1].ti_Tag        = WA_BackFill;
  882.                 WUD->Tags[1].ti_Data    = &(WUD->MacLayerHook);
  883.                 WUD->Tags[2].ti_Tag        = TAG_MORE;
  884.                 WUD->Tags[2].ti_Data    = ti;
  885. #else
  886.                 WUD->Tags[1].ti_Tag        = TAG_MORE;
  887.                 WUD->Tags[1].ti_Data    = ti;
  888. #endif
  889.                 if (nw)
  890.                 {
  891.                     struct Gadget *gg;
  892.                     if (gg = nw->FirstGadget)
  893.                     {
  894.                         while (gg) //HIT
  895.                         {
  896.                             if (gg->GadgetType == GTYP_PROPGADGET)
  897.                             {
  898.                                 if (gg->Activation & GACT_RIGHTBORDER)
  899.                                 {
  900.                                     gg->Height     += (-8 + 22);
  901.                                     gg->TopEdge    = 19;
  902.                                     gg->LeftEdge    -= 2;
  903.                                     gg->Width        += 4;
  904.                                 //    ((struct PropInfo*)gg->SpecialInfo)->Flags &=~ PROPNEWLOOK;
  905.                                     //gg->Activation &=~ GACT_RELVERIFY;
  906.                                     //gg->Activation |= (GACT_IMMEDIATE | GACT_FOLLOWMOUSE);
  907.                                 }
  908.                                 if (gg->Activation & GACT_BOTTOMBORDER)
  909.                                 {
  910.                                     gg->Height    += 7;
  911.                                     gg->TopEdge    -= 7;
  912.                                     gg->Width        += 37;
  913.                                     gg->LeftEdge    -= 2;
  914.                                 //    ((struct PropInfo*)gg->SpecialInfo)->Flags &=~ PROPNEWLOOK;
  915.                                     //gg->Activation &=~ GACT_RELVERIFY;
  916.                                     //gg->Activation |= (GACT_IMMEDIATE | GACT_FOLLOWMOUSE);
  917.                                 }
  918.                             }
  919.                             if (gg->NextGadget->GadgetType != GTYP_PROPGADGET)
  920.                             {
  921.                                 gg->NextGadget = NULL;
  922.                             }
  923.                             gg = gg->NextGadget;
  924.                         }
  925.                     }
  926.                     nw->Flags &= ~(WFLG_CLOSEGADGET|WFLG_DEPTHGADGET|WFLG_DRAGBAR|WFLG_SIZEGADGET);
  927.                 }
  928.  
  929.                 return (struct TagItem*) (((int)WUD) | 1);
  930.  
  931.             /* never reached */
  932.  
  933.     OpenWindoid_failed:
  934.  
  935.             DisposeObject (WUD->Border);
  936.             DisposeObject (WUD->BorderImg);
  937.             DisposeObject (WUD->Size);
  938.             DisposeObject (WUD->SizeImg);
  939.             DisposeObject (WUD->Zoom);
  940.             DisposeObject (WUD->ZoomImg);
  941.             DisposeObject (WUD->Dragbar);
  942.             DisposeObject (WUD->DragImg);
  943.             DisposeObject (WUD->Close);
  944.             DisposeObject (WUD->CloseImg);
  945.         }
  946.         FreeMem (WUD,sizeof(*WUD));
  947.     }
  948.     return ti;
  949. }
  950.  
  951. SAVEDS VOID ASM After_OpenWindow (REG(a0) struct Window *win, REG(a1) struct WindowUserData *WUD)
  952. {
  953.     if (WUD) if (WUD->MagicID == MAGIC_NUMBER)
  954.     {
  955.         win->ExtData = WUD;
  956.  
  957.         WUD->title = &(win->Title);
  958.  
  959. #ifdef CREATE_BACKFILL_HOOK
  960.         SetBPen(win->RPort,WUD->gray55);
  961.         SetAPen(win->RPort,WUD->gray00);    /* black */
  962.         SetDrMd(win->RPort,JAM2);
  963. #endif
  964.  
  965.         AddGadget(win,WUD->Close,(UWORD)-1);
  966.         AddGadget(win,WUD->Zoom,(UWORD)-1);
  967.         if (WUD->Size) AddGadget(win,WUD->Size,(UWORD)-1);
  968.         AddGadget(win,WUD->Dragbar,(UWORD)-1);
  969.         AddGadget(win,WUD->Border,(UWORD)-1);
  970.  
  971.         win->BorderLeft    = 1;
  972.         win->BorderTop        = 19;
  973.         win->BorderRight    += 1;
  974.         win->BorderBottom    += 1;
  975.  
  976.         RefreshWindowFrame(win);        /* re-calculate the border */
  977.     }
  978. }
  979.  
  980.  
  981. SAVEDS struct WindowUserData* ASM Before_CloseWindow (REG(a0) struct Window *win)
  982. {
  983.     if (win->ExtData)
  984.     {
  985.         if (((struct WindowUserData*)win->ExtData)->MagicID == MAGIC_NUMBER)
  986.         {
  987.             struct WindowUserData *WUD = win->ExtData;
  988.             win->ExtData = NULL;
  989.  
  990. #ifdef CLOSEWINDOW_SAFELY_NEEDED
  991.         {
  992.             struct IntuiMessage *imsg;
  993.             struct Node *succ;
  994.  
  995.             /* taken from the RKM examples */
  996.  
  997.             Forbid();
  998.             imsg = (struct IntuiMessage*) win->UserPort->mp_MsgList.lh_Head;
  999.             while (succ = imsg->ExecMessage.mn_Node.ln_Succ)
  1000.             {
  1001.                 if (imsg->IDCMPWindow == win)
  1002.                 {
  1003.                     Remove ((struct Message*)imsg);
  1004.                     ReplyMsg ((struct Message*)imsg);
  1005.                 }
  1006.                 imsg = (struct IntuiMessage *) succ;
  1007.             }
  1008.             ModifyIDCMP(win,0);
  1009.             Permit();
  1010.         }
  1011. #endif
  1012.             return WUD;
  1013.         }
  1014.     }
  1015.  
  1016.     return 0;
  1017. }
  1018.  
  1019. VOID ASM SAVEDS After_CloseWindow (REG(a1) struct WindowUserData *WUD)
  1020. {
  1021.     if (WUD->MagicID == MAGIC_NUMBER)
  1022.     {
  1023.         DisposeObject (WUD->Border);
  1024.         DisposeObject (WUD->BorderImg);
  1025.         DisposeObject (WUD->Size);
  1026.         DisposeObject (WUD->SizeImg);
  1027.         DisposeObject (WUD->Zoom);
  1028.         DisposeObject (WUD->ZoomImg);
  1029.         DisposeObject (WUD->Dragbar);
  1030.         DisposeObject (WUD->DragImg);
  1031.         DisposeObject (WUD->Close);
  1032.         DisposeObject (WUD->CloseImg);
  1033.  
  1034.         if (WUD->scr)
  1035.         {
  1036.             struct ColorMap *cm = WUD->scr->ViewPort.ColorMap;
  1037.             
  1038.             ReleasePen(cm,WUD->gray00);
  1039.             ReleasePen(cm,WUD->gray13);
  1040.             ReleasePen(cm,WUD->gray23);
  1041.             ReleasePen(cm,WUD->gray29);
  1042.             ReleasePen(cm,WUD->gray42);
  1043.             ReleasePen(cm,WUD->gray46);
  1044.             ReleasePen(cm,WUD->gray55);
  1045.             ReleasePen(cm,WUD->gray59);
  1046.         }
  1047.  
  1048.         if (WUD->tf) CloseFont(WUD->tf);
  1049.     
  1050.         FreeMem (WUD,sizeof(*WUD));
  1051.     }
  1052. }
  1053.  
  1054. int main ()
  1055. {
  1056.     Printf("*** MacWB 0.1 ***\nCopyright ©1996 by Daniel Balster\nAll Rights Reserved.\n");
  1057.  
  1058.     if (init())
  1059.     {
  1060.         Disable();
  1061.         OldVector1 = SetFunction (LIB1,VEC1,(ULONG(*)())&(NewVector1));
  1062.         OldVector2 = SetFunction (LIB2,VEC2,(ULONG(*)())&(NewVector2));
  1063.         CacheClearU();
  1064.         Enable();
  1065.  
  1066.         Wait (SIGBREAKF_CTRL_C);
  1067.         
  1068.         if (FindPort("SetMan"))
  1069.         {
  1070.             Disable();
  1071.             SetFunction (LIB1,VEC1,(ULONG(*)())(OldVector1));
  1072.             SetFunction (LIB2,VEC2,(ULONG(*)())(OldVector2));
  1073.             CacheClearU();
  1074.             Enable();
  1075.         }
  1076.         else Wait(SIGBREAKF_CTRL_F);    /* DO NOT SIGNAL THIS !! */
  1077.     }
  1078.     kill();
  1079.  
  1080.     return 0;
  1081. }
  1082.